home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / game / misc / DiamondTools17.lha / Sfx1.0 / InstallSfx next >
Text File  |  1995-06-04  |  3KB  |  111 lines
  1. ; $VER InstallSfx 1.0 (04.06.95)
  2.  
  3. (set Update 0)
  4. (set version 0)
  5. (set DrawerName "DC:")
  6.  
  7. (complete 0)
  8. (if (exists "DC:" (NOREQ))
  9.     (
  10.  
  11.         (if (exists "DC:DiamondSfx" (NOREQ))
  12.             (
  13.                 (set vernum (getversion "DC:DiamondSfx"))
  14.  
  15.                 (set ver (/ vernum 65536))
  16.                 (set rev (- vernum (* ver 65536)))
  17.  
  18.                 (set version (+ (* 100 ver) rev))
  19.  
  20.                 (if (> version 099)
  21.                     (
  22.                         (message "You have already installed a version greater or equal 1.0!\n")
  23.                         (exit (quiet))
  24.                     )
  25.                 )
  26.  
  27.                 (set Update
  28.                     (askchoice
  29.                         (prompt "Diamond Sfx V" ver "." rev " already installed.\nDo you want to update or install completely new?")
  30.                         (choices "Install new" "Update")
  31.                         (help "Sorry, no help-file.")
  32.                         (default 1)
  33.                     )
  34.                 )
  35.             )
  36.         )
  37.     )
  38.     (
  39.         (message "Directory "DC:" not found!\nYou need an installed Version of Diamond Caves to run Diamond Sfx.")
  40.         (exit (quiet))
  41.     )
  42. )
  43.  
  44. (if (= Update 1)                  ; only Update according to present Version
  45.     (
  46.         (complete 30)
  47.         (if (< version 100)         ; this is only for versions <1.0
  48.             (copyfiles
  49.                 (prompt "Copying necessary files to \"" DrawerName "\".")
  50.                 (help @copyfiles-help)
  51.                 (source "new")
  52.                 (dest DrawerName)
  53.                 (all)
  54.                 (infos)
  55.             )
  56.         )
  57.     )
  58.  
  59.     (                             ; new install: copy everything to "DrawerName" (should be "DC:" !)
  60.         (complete 10)
  61.         (set icons
  62.             (askchoice
  63.                 (prompt "What kind of Icons do you want?\n")
  64.                 (choices "normal" "MagicWB" "none")
  65.                 (help "Soory, no help-file.")
  66.                 (default 0)
  67.             )
  68.         )
  69.  
  70.         (if (= icons 0)
  71.             (
  72.                 (copyfiles
  73.                     (prompt "Copying necessary Icons to \"" DrawerName "\".")
  74.                     (help @copyfiles-help)
  75.                     (source "Icons/normal")
  76.                     (dest DrawerName)
  77.                     (all)
  78.                     (infos)
  79.                 )
  80.             )
  81.         )
  82.         (if (= icons 1)
  83.             (
  84.                 (copyfiles
  85.                     (prompt "Copying necessary Icons to \"" DrawerName "\".")
  86.                     (help @copyfiles-help)
  87.                     (source "Icons/MagicWB")
  88.                     (dest DrawerName)
  89.                     (all)
  90.                     (infos)
  91.                 )
  92.             )
  93.         )
  94.  
  95.         (complete 30)
  96.         (copyfiles
  97.             (prompt "Copying necessary files to \"" DrawerName "\".")
  98.             (help @copyfiles-help)
  99.             (source "new")
  100.             (dest DrawerName)
  101.             (all)
  102.             (infos)
  103.         )
  104.     )
  105. )
  106.  
  107. (complete 100)
  108. (message "\nDiamondSfx V1.0 installation/update complete.\n\nHave fun!")
  109.  
  110. (exit (quiet))
  111.